home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Highscore 2
/
Highscore_2_19xx_-.d64
/
lader kreuzungen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
215 lines
8000 rem lader kreuzungen =====c64
8010 rem (p) commodore welt team =
8020 rem =========================
8030 rem (c) by guenter kramer =
8040 rem emsdetten =
8050 rem =
8060 rem basic 2.0 40z/ascii =
8070 rem c64 + 1530/1541/1571 =
8080 rem =========================
8090 s=0
8100 a=peek(61)+256*peek(62)
8110 poke65,aand255
8120 poke66,a/256
8130 printchr$(147)"laden assembler"
8140 fori=0to2
8150 reada
8160 s=s+a
8170 ad(i)=a
8180 next
8190 reada
8200 ifs=athen8230
8210 print"fehler in pruefsummen"
8220 end
8230 an=49152
8240 en=49783
8250 s=0
8260 forj=0to2
8270 a=an+256*j
8280 e=a+255
8290 ife>enthene=en
8300 fori=atoe
8310 reada
8320 d2=peek(63)+256*peek(64)
8330 ifd1=0thend1=d2
8340 if(a<0)or(a>255)then8410
8350 ifa-int(a)<>0then8410
8360 s=s+a
8370 pokei,a:next
8380 ifs<>ad(j)then8440
8390 print"teil"j"in ordnung"
8400 goto8460
8410 print"datafehler in zeile"s
8420 print"falscher wert ="a
8430 end
8440 print"datafehler zeilen"d1"-"d2
8450 end
8460 d1=0
8470 s=0
8480 next
8490 goto8530
8500 rem *************************
8510 rem save maschinenprogramm *
8520 rem *************************
8530 print
8540 print"save maschinenprogramm"
8550 print
8560 print"adresse ? 1 = kassette"
8570 printtab(8)"8/9 = diskette"
8580 poke198,0
8590 geta$:ifa$=""then8590
8600 ifa$="1"then8620
8610 if(a$<"8")or(a$>"9")then8590
8620 poke2,val(a$)
8630 fori=0to3
8640 poke251+i,peek(43+i)
8650 next
8660 poke43,0
8670 poke44,192
8680 poke45,120
8690 poke46,194
8700 save"m.p. kreuzungen",peek(2)
8710 poke43,peek(251)
8720 poke44,peek(252)
8730 poke45,peek(253)
8740 poke46,peek(254)
8750 ifpeek(2)=1thenend
8760 print
8770 open1,8,15
8780 get#1,a$
8790 get#1,b$
8800 if(a$="0")and(b$="0")then8900
8810 printa$;b$;
8820 get#1,a$
8830 printa$;
8840 ifst<>64then8820
8850 close1
8860 print"floppy ok?[160](j/e)"
8870 print"e = ende, nicht speichern"
8880 geta$:ifa$="j"then8660
8890 ifa$<>"e"then8880
8900 close1:end
8910 rem *************************
8920 rem ***** datas pruefsummen *
8930 rem *************************
8940 data 33564,37291,5505,76360
8950 rem *************************
8960 rem datas maschinenprogramm *
8970 rem *************************
8980 data 076,006,192,076,100,192
8981 data 032,160,229,120,169,003
8982 data 141,020,003,169,192,141
8990 data 021,003,169,248,141,018
8991 data 208,173,017,208,041,127
8992 data 141,017,208,169,129,141
9000 data 026,208,088,169,000,141
9001 data 118,192,169,024,141,000
9002 data 208,141,002,208,169,088
9010 data 141,004,208,141,006,208
9011 data 169,152,141,008,208,141
9012 data 010,208,169,216,141,012
9020 data 208,141,014,208,169,255
9021 data 141,023,208,141,029,208
9022 data 169,194,133,252,169,000
9030 data 160,000,133,251,145,251
9031 data 200,208,251,096,173,025
9032 data 208,141,025,208,048,007
9040 data 173,013,220,088,076,049
9041 data 234,162,000,240,006,076
9042 data 137,192,076,159,192,076
9043 data 181,192,076,195,192,076
9050 data 209,192,076,223,192,173
9051 data 017,208,041,247,141,017
9052 data 208,169,003,141,118,192
9060 data 162,000,169,000,160,254
9061 data 076,237,192,173,017,208
9062 data 009,008,141,017,208,169
9070 data 006,141,118,192,162,048
9071 data 169,032,160,008,076,237
9072 data 192,169,009,141,118,192
9080 data 160,057,169,064,162,096
9081 data 076,237,192,169,012,141
9082 data 118,192,160,105,169,096
9090 data 162,144,076,237,192,169
9091 data 015,141,118,192,160,153
9092 data 169,128,162,192,076,237
9100 data 192,169,000,141,118,192
9101 data 160,201,169,160,162,248
9102 data 076,237,192,140,001,208
9110 data 140,003,208,140,005,208
9111 data 140,007,208,140,009,208
9112 data 140,011,208,140,013,208
9120 data 140,015,208,142,018,208
9121 data 160,000,133,251,177,251
9122 data 141,021,208,200,177,251
9130 data 153,038,208,200,192,009
9131 data 208,246,177,251,153,239
9132 data 007,200,192,017,208,246
9140 data 076,188,254,120,169,051
9141 data 133,001,169,208,160,000
9142 data 133,096,132,095,132,090
9150 data 132,088,169,216,133,091
9151 data 169,208,133,089,032,191
9152 data 163,169,055,133,001,088
9153 data 096,169,000,168,153,064
9160 data 062,153,000,063,200,208
9161 data 247,162,000,169,194,141
9162 data 245,193,160,064,169,062
9170 data 141,248,193,032,235,193
9171 data 162,030,160,128,032,235
9172 data 193,160,192,032,235,193
9180 data 162,060,160,000,238,248
9181 data 193,032,235,193,160,064
9182 data 032,235,193,162,090,160
9190 data 128,032,235,193,160,192
9191 data 032,235,193,169,024,141
9192 data 217,062,141,089,063,141
9200 data 217,063,169,060,141,220
9201 data 062,141,092,063,141,220
9202 data 063,160,000,185,064,062
9210 data 153,121,062,200,192,003
9211 data 208,245,238,168,193,238
9212 data 168,193,238,168,193,206
9220 data 171,193,206,171,193,206
9221 data 171,193,173,168,193,041
9222 data 015,201,014,208,216,173
9230 data 168,193,024,105,034,208
9231 data 006,238,169,193,238,172
9232 data 193,141,168,193,009,057
9240 data 141,171,193,173,169,193
9241 data 201,064,208,187,096,142
9242 data 244,193,140,247,193,160
9250 data 029,185,093,194,153,192
9251 data 063,136,016,247,096,238
9252 data 238,238,000,024,000,028
9260 data 060,056,031,126,248,031
9261 data 126,248,015,189,240,015
9262 data 189,240,003,219,192,012
9270 data 219,048,031,060,248,063
9271 data 255,252,000,024,000,028
9272 data 036,056,017,066,136,017
9273 data 066,136,008,165,016,008
9280 data 165,016,002,090,064,012
9281 data 000,048,016,000,008,032
9282 data 000,004,000,000,000,000
9283 data 000,000,000,024,000,006
9290 data 024,096,006,000,096,000
9291 data 000,000,000,000,000,000
9292 data 000,000,000,000,000,012
9293 data 000,048,000,000,000,000
9294 data 000,000,000,024,000,003
9300 data 102,192,004,000,032,004
9301 data 000,032,000,000,000,004
9302 data 000,032,004,000,032,008
9303 data 000,016
9310 rem lader kreuzungen ======64
9320 rem 038911 bytes memory =
9330 rem 005271 bytes program =
9340 rem 000007 bytes variables =
9350 rem 000000 bytes arrays =
9360 rem 000000 bytes strings =
9370 rem 034403 bytes free(0) =
9380 rem =========================
9390 rem 000632 bytes assembler =
9400 rem =========================